home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr08
/
bike01.zip
/
BIKE0104.TYP
< prev
next >
Wrap
Text File
|
1993-06-20
|
1KB
|
24 lines
type
CodeStr = string[8];
TripRecord = record
RecordStatus : longint;
Year : 1985..2000;
Month : 1..12;
Day : 1..31;
DayOfWk : 0..06; {Sun=0}
Hours : 0..24;
Minutes : 0..59;
Seconds : 0..59;
TimeInHours,
Distance,
AverageSpeed,
MaximumSpeed,
Odometer : real;
Note : string[45];
Key : CodeStr;
DeleteCode : boolean;
end; {TripRecord}
MaxDataType = TripRecord;
MaxKeyType = CodeStr;